home *** CD-ROM | disk | FTP | other *** search
/ Saar AMOK 2 / Saar AMOK II - Oktober 1994 (1994)(Kreativ Marketing)(DE)[!][I-7598].iso / disks / 651_700 / 663 / mathplot / macros / discuss.rexx < prev    next >
OS/2 REXX Batch file  |  1994-01-01  |  841b  |  41 lines
  1. /* Test of discussion */
  2. address "MPlot_ARexx"
  3. options results
  4.  
  5. getfunc 0 var function
  6. get1derive 0 var derive1
  7. get2derive 0 var derive2
  8.  
  9. say "The function is         : "function
  10. say "The first  derivation is: "derive1
  11. say "The second derivation is: "derive2
  12.  
  13. /* Discussion */
  14.  
  15. say
  16. say "Zero points"
  17. getpoints function zero stem zero.
  18. do i=0 to zero.xpoints.count-1
  19.  say "f("zero.xpoints.i") = "zero.ypoints.i
  20. end
  21.  
  22. say 
  23. say "Max points"
  24. getpoints function max stem max.
  25. do i=0 to max.xpoints.count-1
  26.  say "f("max.xpoints.i") = "max.ypoints.i"   "max.typ.i
  27. end
  28.  
  29. say
  30. say "Turning points"
  31. getpoints function turn stem turn.
  32. do i=0 to turn.xpoints.count-1
  33.  evalstring derive1" x="turn.xpoints.i
  34.  if result = 0 then
  35.   type = "f'("turn.xpoints.i")=0"
  36.  else
  37.   type = ""
  38.  endif
  39.  say "f("turn.xpoints.i") = "turn.ypoints.i"   "turn.typ.i"  "type
  40. end
  41.